home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / plybttns.hqx / Polybuttons / card_2852.txt < prev    next >
Encoding:
Text File  |  1990-09-30  |  1.7 KB  |  49 lines
  1. -- card: 2852 from stack: in
  2. -- bmap block id: 3701
  3. -- flags: 0000
  4. -- background id: 2588
  5. -- name: 
  6. ----- HyperTalk script -----
  7. -- <namePolybutton> 1 58,27,358,100
  8. -- 0,54 6,-34 21,-20 71,2 39,0 8,22 125,-5 4,-17 16,0 -6,51 -157,3 -5,17 -33,3 16,-22 -105,0
  9. -- <shapePolybutton pentagon> 2 122,186,210,270
  10. -- 78,35 -32,38 -46,-19 5,-49 48,-12 25,42
  11. -- <shapePolybutton hexagon> 3 370,136,434,190
  12. -- 89,32 -43,41 -56,-19 -12,-57 46,-40 53,19 12,56
  13. -- <>
  14.  
  15. on mouseDown
  16.   if polybutton(the script of this card) is "pass" then pass mouseDown
  17. end mouseDown
  18.  
  19. on shapePolybutton whatShape
  20.   put "You clicked on the " & whatShape
  21. end shapePolybutton
  22.  
  23. on namePolybutton
  24.   answer "Polybuttons, by Greg Anderson." with "Okay"
  25. end namePolybutton
  26.  
  27.  
  28.  
  29. -- part contents for background part 26
  30. ----- text -----
  31.  
  32.                                                                                         ┬⌐1990
  33.                                                                                    Greg Anderson
  34.                                                                                 greggor@apple.com
  35.  
  36.  
  37. This stack contains:
  38.        polybutton XFCN version 1.0 final                             Click
  39.        polyedit XFCN version 1.0d11                                      on
  40.                                                                                          Shapes
  41.  
  42. Both XFCNs                         There are still some
  43. work with            to              problems with polyedit.
  44.    HC 2.0.             test                Use with caution, and make a backup
  45.                                                       of any stack you use polyedit with.
  46.  
  47. -- part contents for background part 27
  48. ----- text -----
  49. Card 1 of 10